(file-name-sans-versions): Also allow `_'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 768a3a83a3cedc3a304b0bf9c474848e14d8cb8e..457a25efbaf11fbb131a3c0646ee953509f3fe97 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2007-09-22  Andreas Schwab  <schwab@suse.de>
+
+       * files.el (file-name-sans-versions): Also allow `_'.
+
 2007-09-22  Glenn Morris  <rgm@gnu.org>
 
        * eshell/esh-mode.el (eshell-output-filter-functions): Add

diff --git a/lisp/files.el b/lisp/files.el
index 17b4a6504dbb34a9929d68ddd3a34a18b296bfb4..bf7d34e2227691e791f9e7ee3b67bf5524be7630 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -3188,7 +3188,7 @@ we do not remove backup version numbers, only true file version numbers."
                         (length name))
                   (if keep-backup-version
                       (length name)
-                    (or (string-match "\\.~[-0-9a-z.]+~\\'" name)
+                    (or (string-match "\\.~[-0-9a-z._]+~\\'" name)
                         (string-match "~\\'" name)
                         (length name))))))))